home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / MGR.TXT < prev    next >
Encoding:
Text File  |  1991-08-20  |  2.6 KB  |  125 lines
  1. ;
  2. ;  MGR -- (c) 1990 Chris Butler
  3. ;
  4.  
  5. ;VIDEO M
  6.  
  7.  
  8.   set all off
  9.   goto top
  10. all:
  11.   set all on
  12. top:
  13.  
  14. global boxllx 0 ; mod 8 = 0
  15. global boxlly 0
  16. global boxw  488
  17. global boxh  115
  18. set h 17    ; key height
  19. set keycolor 14 ; keytop color in convbox = 14 (yellow)
  20. set txtboxclr 14; 
  21. cload max.clp 30 1 0      ; max's face
  22. tran on 15
  23. cload cover.clp 32 0 1 
  24. merge toursubs.txt
  25.  
  26. pat:
  27. pload palette1.pcx
  28. set entrypoint "entry_12"
  29. palette 1
  30. pfree 1
  31. cload eric.clp 31 1 0
  32. set boxtitle "Max with the Plant Manager"
  33. call steps.txt mgr
  34.  
  35. label602:
  36. newbgrnd "ericoffa.pcx" 80 0 0 0 100 5
  37. ;mouse on
  38. set str1 "Hi, Max! I'm on hold. Please come in and tell me how we're doing "
  39. set str2 "on the Line 1 cartoner problem."
  40. say 0 @str1 @str2
  41. waitkey 50
  42. label1a:
  43. getcmd
  44. if @0<>"backup" label603
  45. noise 500 200 50
  46. waitkey 100
  47. goto label1a
  48.  
  49. label603:
  50. set str1 "The repair is all set, Patrick. Let me show you the closed work order"
  51. set str2 " in MAXIMO."
  52. say 1 @str1 @str2
  53. waitkey 50
  54. getcmd
  55. if @0=="backup" label602
  56.  
  57. label604:
  58. newbgrnd "wohist.pcx" 80 0 0 0 200 9   ; 
  59. set str1 "Boy, that's great Max. I wonder if that bearing is going to give us "
  60. set str2 "trouble anywhere else in the plant?"
  61. say 0 @str1 @str2
  62. waitkey 50
  63. getcmd
  64. if @0=="backup" label603
  65.  
  66. label605:
  67. set str1 "Let's look in the Failure Analysis History and see."
  68. set str2 " "
  69. say 1 @str1 @str2
  70. waitkey 50
  71. getcmd
  72. if @0=="backup" label604
  73.  
  74. label606:
  75. newbgrnd "failure.pcx" 80 0 1 0 200 9       ; 35.pcx
  76. set str1 "Lots of bearing-related problems, Patrick. We should probably refit "
  77. set str2 "all of those cartoners. I'll take care of it right away."
  78. say 1 @str1 @str2
  79. waitkey 50
  80. getcmd
  81. if @0=="backup" label605
  82.  
  83. label607:
  84. set str1 "Boy that MAXIMO system really is great, Max. Our production "
  85. set str2 "numbers are up 10% as a result of lower downtime!"
  86. say 0 @str1 @str2
  87. waitkey 50
  88. getcmd
  89. if @0=="backup" label606
  90.  
  91. label608:
  92. newbgrnd "ericoffa.pcx" 80 0 1 0 100 9
  93. set str1 "And, Patrick, you wouldn't believe how much easier my life is now."
  94. set str2 " "
  95. say 1 @str1 @str2
  96. waitkey 50
  97. getcmd
  98. if @0=="backup" label607
  99.  
  100. label609:
  101. set str1 "Actually Max I would believe it. I've watched you knock 5 strokes off"
  102. set str2 " your golf handicap this year! Are we still on for Saturday morning?"
  103. say 0 @str1 @str2
  104. waitkey 50
  105. getcmd
  106. if @0=="backup" label608
  107.  
  108. label610:
  109. set str1 "Sounds good to me!"
  110. set str2 ""
  111. say 1 @str1 @str2
  112. waitkey 50
  113. getcmd
  114. if @0=="backup" label609
  115. ;mouse off
  116.  
  117. if @all==on 
  118.    link udrive.txt all
  119.  else
  120.    link master.txt entry_12
  121. endif
  122.  
  123. ;  END  PLANT MANAGER
  124.  
  125.